home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / nivb / nwtest.bas < prev    next >
Encoding:
BASIC Source File  |  1995-05-09  |  247 b   |  11 lines
  1.  
  2. Function GetDefaultFileServerName () As String
  3.     Dim fileServerName As String * 48
  4.     
  5.     connID% = GetDefaultConnectionID()
  6.     GetFileServerName connID%, fileServerName
  7.  
  8.     GetDefaultFileServerName = fileServerName
  9. End Function
  10.  
  11.